home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Apple Shared Library Manager / ASLM Examples / Sample Apps / CPlusSample / Sources / Sample.cp next >
Encoding:
Text File  |  1996-11-19  |  26.6 KB  |  803 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        Sample.cp
  3.  
  4.     Contains:    This is a simple application, based on the DTS traffic light example,
  5.                 that demonstrates how to use the Shared Library Manager. It puts the
  6.                 functionality of the traffic light window into a shared library and
  7.                 then uses that library from the client application.
  8.  
  9.     Copyright:    © 1993-1994 by Apple Computer, Inc., all rights reserved.
  10.  
  11. */
  12.  
  13. #include <GlobalNew.h>
  14. #include <LibraryManager.h>
  15. #include <LibraryManagerClasses.h>
  16. #include <LibraryManagerUtilities.h>
  17.  
  18. #include <limits.h>
  19. #include <Types.h>
  20. #include <Resources.h>
  21. #include <QuickDraw.h>
  22. #include <Fonts.h>
  23. #include <Events.h>
  24. #include <Windows.h>
  25. #include <Menus.h>
  26. #include <TextEdit.h>
  27. #include <Dialogs.h>
  28. #include <Desk.h>
  29. #include <ToolUtils.h>
  30. #include <Memory.h>
  31. #include <SegLoad.h>
  32. #include <Files.h>
  33. #include <OSUtils.h>
  34. #include <OSEvents.h>
  35. #include <DiskInit.h>
  36. #include <Packages.h>
  37. #include <Traps.h>
  38.  
  39. #include "Sample.h"
  40. #include "SampleLibrary.h"
  41.  
  42. // The "g" prefix is used to emphasize that a variable is global. 
  43.  
  44. // gMac is used to hold the result of a SysEnvirons call. This makes
  45. // it convenient for any routine to check the environment. 
  46.  
  47. SysEnvRec    gMac;                // set up by Initialize 
  48.  
  49. // gHasWaitNextEvent is set at startup, and tells whether the WaitNextEvent
  50. // trap is available. If it is false, we know that we must call GetNextEvent. 
  51.  
  52. Boolean        gHasWaitNextEvent;    // set up by Initialize 
  53.  
  54. // gInBackground is maintained by our osEvent handling routines. Any part of
  55. // the program can check it to find out if it is currently in the background. 
  56.  
  57. Boolean        gInBackground;        // maintained by Initialize and DoEvent 
  58.  
  59.  
  60. // gTrafficLight is a pointer to our traffic light object. 
  61.  
  62. TTrafficLight    *gTrafficLight = nil;
  63.  
  64. // Here are declarations for all of the C routines. In MPW 3.0 and later we can use
  65. // actual prototypes for parameter type checking. 
  66.  
  67. void EventLoop( void );
  68. void DoEvent( EventRecord *event );
  69. void AdjustCursor( Point mouse, RgnHandle region );
  70. void GetGlobalMouse( Point *mouse );
  71. void DoUpdate( WindowPtr window );
  72. void DoActivate( WindowPtr window, Boolean becomingActive );
  73. void DoContentClick();
  74. void DrawWindow();
  75. void AdjustMenus( void );
  76. void DoMenuCommand( long menuResult );
  77. Boolean DoCloseWindow( WindowPtr window );
  78. void Terminate( void );
  79. void UnLoadTrafficLightLibrary();
  80. void LoadTrafficLightLibrary();
  81. void Initialize( void );
  82. void ForceEnvirons( void );
  83. Boolean IsAppWindow( WindowPtr window );
  84. Boolean IsDAWindow( WindowPtr window );
  85. Boolean TrapAvailable( short tNumber, TrapType tType );
  86. void AlertUser( void );
  87.  
  88. // Define TopLeft and BotRight macros for convenience. Notice the implicit
  89. // dependency on the ordering of fields within a Rect 
  90.  
  91. #define TopLeft(aRect)    (* (Point *) &(aRect).top)
  92. #define BotRight(aRect)    (* (Point *) &(aRect).bottom)
  93.  
  94.  
  95. /*————————————————————————————————————————————————————————————————————————————————————
  96.     _DataInit
  97.  
  98.     This routine is part of the MPW runtime library. This external reference to 
  99.     it is done so that we can unload its segment, %A5Init.
  100.  
  101. ————————————————————————————————————————————————————————————————————————————————————*/
  102.  
  103. extern void _DataInit();
  104.  
  105. /*————————————————————————————————————————————————————————————————————————————————————
  106.     main
  107. ————————————————————————————————————————————————————————————————————————————————————*/
  108.  
  109. #pragma segment Main
  110. void main()
  111. {
  112.     //    If you have stack requirements that differ from the default,
  113.     //    then you could use SetApplLimit to increase StackSpace at 
  114.     //    this point, before calling MaxApplZone. 
  115.     MaxApplZone();                    // expand the heap so code segments load at the top 
  116.  
  117.     Initialize();                    // initialize the program 
  118.         
  119.     EventLoop();                    // call the main event loop 
  120. }
  121.  
  122.  
  123. /*————————————————————————————————————————————————————————————————————————————————————
  124.     EventLoop
  125.  
  126.     Get events forever, and handle them by calling DoEvent.
  127.     Get the events by calling WaitNextEvent, if it's available, otherwise
  128.     by calling GetNextEvent. Also call AdjustCursor each time through the loop.
  129.  
  130. ————————————————————————————————————————————————————————————————————————————————————*/
  131.  
  132. #pragma segment Main
  133. void EventLoop()
  134. {
  135.     RgnHandle    cursorRgn;
  136.     Boolean        gotEvent;
  137.     EventRecord    event;
  138.     Point        mouse;
  139.  
  140.     cursorRgn = NewRgn();            // we’ll pass WNE an empty region the 1st time thru 
  141.     do {
  142.         // use WNE if it is available 
  143.         if ( gHasWaitNextEvent ) {
  144.             GetGlobalMouse(&mouse);
  145.             AdjustCursor(mouse, cursorRgn);
  146.             gotEvent = WaitNextEvent(everyEvent, &event, LONG_MAX, cursorRgn);
  147.         }
  148.         else {
  149.             SystemTask();
  150.             gotEvent = GetNextEvent(everyEvent, &event);
  151.         }
  152.         if ( gotEvent ) {
  153.             // make sure we have the right cursor before handling the event 
  154.             AdjustCursor(event.where, cursorRgn);
  155.             DoEvent(&event);
  156.         }
  157.         //    If you are using modeless dialogs that have editText items,
  158.         //    you will want to call IsDialogEvent to give the caret a chance
  159.         //    to blink, even if WNE/GNE returned FALSE. However, check FrontWindow
  160.         //    for a non-NIL value before calling IsDialogEvent. 
  161.     } while ( true );    // loop forever; we quit via ExitToShell 
  162. } /*EventLoop*/
  163.  
  164.  
  165. /*————————————————————————————————————————————————————————————————————————————————————
  166.     DoEvent
  167.  
  168.     Do the right thing for an event. Determine what kind of event it is, and call
  169.     the appropriate routines.
  170.  
  171. ————————————————————————————————————————————————————————————————————————————————————*/
  172.  
  173. #pragma segment Main
  174.  
  175. void DoEvent( EventRecord *event)
  176. {
  177.     short        part;
  178.     WindowPtr    window;
  179.     Boolean        hit;
  180.     char        key;
  181.     Point        aPoint;
  182.     OSErr        err;
  183.     
  184.     switch ( event->what ) {
  185.         case mouseDown:
  186.             part = FindWindow(event->where, &window);
  187.             switch ( part ) {
  188.                 case inMenuBar:                // process a mouse menu command (if any) 
  189.                     AdjustMenus();
  190.                     DoMenuCommand(MenuSelect(event->where));
  191.                     break;
  192.                 case inSysWindow:            // let the system handle the mouseDown 
  193.                     SystemClick(event, window);
  194.                     break;
  195.                 case inContent:
  196.                     if ( window != FrontWindow() ) {
  197.                         SelectWindow(window);
  198.                         //DoEvent(event);    // use this line for "do first click" 
  199.                     } else
  200.                         DoContentClick();
  201.                     break;
  202.                 case inDrag:                // pass screenBits.bounds to get all gDevices 
  203.                     DragWindow(window, event->where, &qd.screenBits.bounds);
  204.                     break;
  205.                 case inGrow:
  206.                     break;
  207.                 case inZoomIn:
  208.                 case inZoomOut:
  209.                     hit = TrackBox(window, event->where, part);
  210.                     if ( hit ) {
  211.                         SetPort(window);    // the window must be the current port... 
  212.                         EraseRect(&window->portRect);    // because of a bug in ZoomWindow 
  213.                         ZoomWindow(window, part, true);    // note that we invalidate and erase... 
  214.                         InvalRect(&window->portRect);    // to make things look better on-screen 
  215.                     }
  216.                     break;
  217.             }
  218.             break;
  219.         case keyDown:
  220.         case autoKey:                        // check for menukey equivalents 
  221.             key = (char)(event->message & charCodeMask);
  222.             if ( event->modifiers & cmdKey )// Command key down 
  223.                 if ( event->what == keyDown ) {
  224.                     AdjustMenus();            // enable/disable/check menu items properly 
  225.                     DoMenuCommand(MenuKey(key));
  226.                 }
  227.             break;
  228.         case activateEvt:
  229.             DoActivate((WindowPtr) event->message, (event->modifiers & activeFlag) != 0);
  230.             break;
  231.         case updateEvt:
  232.             DoUpdate((WindowPtr) event->message);
  233.             break;
  234.         //  It is not a bad idea to at least call DIBadMount in response
  235.         //    to a diskEvt, so that the user can format a floppy. 
  236.         case diskEvt:
  237.             if ( HighWord(event->message) != noErr ) {
  238.                 SetPt(&aPoint, kDILeft, kDITop);
  239.                 err = DIBadMount(aPoint, event->message);
  240.             }
  241.             break;
  242.         case kOSEvent:
  243.         //    must BitAND with 0x0FF to get only low byte 
  244.             switch ((event->message >> 24) & 0x0FF) {        // high byte of message 
  245.                 case kSuspendResumeMessage:        // suspend/resume is also an activate/deactivate 
  246.                     gInBackground = (event->message & kResumeMask) == 0;
  247.                     DoActivate(FrontWindow(), !gInBackground);
  248.                     break;
  249.             }
  250.             break;
  251.     }
  252. } /*DoEvent*/
  253.  
  254.  
  255. /*————————————————————————————————————————————————————————————————————————————————————
  256.     AdjustCursor
  257.  
  258.     Change the cursor's shape, depending on its position. This also calculates the region
  259.     where the current cursor resides (for WaitNextEvent). If the mouse is ever outside of
  260.     that region, an event would be generated, causing this routine to be called,
  261.     allowing us to change the region to the region the mouse is currently in. If
  262.     there is more to the event than just “the mouse moved”, we get called before the
  263.     event is processed to make sure the cursor is the right one. In any (ahem) event,
  264.     this is called again before we     fall back into WNE.
  265.  
  266. ————————————————————————————————————————————————————————————————————————————————————*/
  267.  
  268. #pragma segment Main
  269. void AdjustCursor( Point mouse, RgnHandle region )
  270. {
  271.     WindowPtr    window;
  272.     RgnHandle    arrowRgn;
  273.     RgnHandle    plusRgn;
  274.     Rect        globalPortRect;
  275.  
  276.     window = FrontWindow();    // we only adjust the cursor when we are in front 
  277.     if ( (! gInBackground) && (! IsDAWindow(window)) ) {
  278.         // calculate regions for different cursor shapes 
  279.         arrowRgn = NewRgn();
  280.         plusRgn = NewRgn();
  281.  
  282.         // start with a big, big rectangular region 
  283.         SetRectRgn(arrowRgn, kExtremeNeg, kExtremeNeg, kExtremePos, kExtremePos);
  284.  
  285.         // calculate plusRgn 
  286.         if ( IsAppWindow(window) ) {
  287.             SetPort(window);    // make a global version of the viewRect 
  288.             SetOrigin(-window->portBits.bounds.left, -window->portBits.bounds.top);
  289.             globalPortRect = window->portRect;
  290.             RectRgn(plusRgn, &globalPortRect);
  291.             SectRgn(plusRgn, window->visRgn, plusRgn);
  292.             SetOrigin(0, 0);
  293.         }
  294.  
  295.         // subtract other regions from arrowRgn 
  296.         DiffRgn(arrowRgn, plusRgn, arrowRgn);
  297.  
  298.         // change the cursor and the region parameter 
  299.         if ( PtInRgn(mouse, plusRgn) ) {
  300.             SetCursor(*GetCursor(plusCursor));
  301.             CopyRgn(plusRgn, region);
  302.         } else {
  303.             SetCursor(&qd.arrow);
  304.             CopyRgn(arrowRgn, region);
  305.         }
  306.  
  307.         // get rid of our local regions 
  308.         DisposeRgn(arrowRgn);
  309.         DisposeRgn(plusRgn);
  310.     }
  311. } /*AdjustCursor*/
  312.  
  313. /*————————————————————————————————————————————————————————————————————————————————————
  314.     GetGlobalMouse
  315.  
  316.     Get the global coordinates of the mouse. When you call OSEventAvail
  317.     it will return either a pending event or a null event. In either case,
  318.     the where field of the event record will contain the current position
  319.     of the mouse in global coordinates and the modifiers field will reflect
  320.     the current state of the modifiers. Another way to get the global
  321.     coordinates is to call GetMouse and LocalToGlobal, but that requires
  322.     being sure that thePort is set to a valid port.
  323.  
  324. ————————————————————————————————————————————————————————————————————————————————————*/
  325.  
  326. #pragma segment Main
  327. void GetGlobalMouse(Point    *mouse)
  328. {
  329.     EventRecord    event;
  330.     
  331.     OSEventAvail(kNoEvents, &event);    // we aren't interested in any events
  332.     *mouse = event.where;                // just the mouse position
  333. } /*GetGlobalMouse*/
  334.  
  335.  
  336. /*————————————————————————————————————————————————————————————————————————————————————
  337.     DoUpdate
  338.         
  339.     This is called when an update event is received for a window.
  340.     It calls DrawWindow to draw the contents of an application window.
  341.     As an effeciency measure that does not have to be followed, it
  342.     calls the drawing routine only if the visRgn is non-empty. This
  343.     will handle situations where calculations for drawing or drawing
  344.     itself is very time-consuming.
  345.  
  346. ————————————————————————————————————————————————————————————————————————————————————*/
  347.  
  348. #pragma segment Main
  349. void DoUpdate( WindowPtr window)
  350. {
  351.     if ( IsAppWindow(window) ) {
  352.         BeginUpdate(window);            // this sets up the visRgn
  353.         if ( ! EmptyRgn(window->visRgn) )// draw if updating needs to be done
  354.             DrawWindow();
  355.         EndUpdate(window);
  356.     }
  357. } /*DoUpdate*/
  358.  
  359. /*————————————————————————————————————————————————————————————————————————————————————
  360.     DoActivate
  361.     
  362.     This is called when a window is activated or deactivated.
  363.     In Sample, the Window Manager's handling of activate and
  364.     deactivate events is sufficient. Other applications may have
  365.     TextEdit records, controls, lists, etc., to activate/deactivate. 
  366.  
  367. ————————————————————————————————————————————————————————————————————————————————————*/
  368.  
  369. #pragma segment Main
  370. void DoActivate(WindowPtr window, Boolean becomingActive)
  371. {
  372.     if ( IsAppWindow(window) ) {
  373.         if ( becomingActive )
  374.             ;// do whatever you need to at activation
  375.         else
  376.             ;// do whatever you need to at deactivation
  377.     }
  378. } /*DoActivate*/
  379.  
  380.  
  381. /*————————————————————————————————————————————————————————————————————————————————————
  382.     DoContentClick
  383.  
  384.     This is called when a mouse-down event occurs in the content of a window.
  385.     Other applications might want to call FindControl, TEClick, etc., to
  386.     further process the click.
  387.  
  388. ————————————————————————————————————————————————————————————————————————————————————*/
  389.  
  390. #pragma segment Main
  391.  
  392. void DoContentClick ()
  393. { 
  394.     gTrafficLight->SetLightState( !gTrafficLight->GetLightState() );
  395.     
  396. } /*DoContentClick*/
  397.  
  398.  
  399. /*————————————————————————————————————————————————————————————————————————————————————
  400.     DrawWindow
  401.  
  402.     Draw the contents of the application window. We do some drawing in color, using
  403.       Classic QuickDraw's color capabilities. This will be black and white on old
  404.        machines, but color on color machines. At this point, the window’s visRgn
  405.        is set to allow drawing only where it needs to be done.
  406.  
  407. ————————————————————————————————————————————————————————————————————————————————————*/
  408.  
  409. #pragma segment Main
  410.  
  411. void DrawWindow()
  412. {    
  413.     gTrafficLight->DrawLight();
  414.  
  415. } /*DrawWindow*/
  416.  
  417.  
  418. /*————————————————————————————————————————————————————————————————————————————————————
  419.     AdjustMenus
  420.     
  421.     Enable and disable menus based on the current state.
  422.     The user can only select enabled menu items. We set up all the menu items
  423.     before calling MenuSelect or MenuKey, since these are the only times that
  424.     a menu item can be selected. Note that MenuSelect is also the only time
  425.     the user will see menu items. This approach to deciding what enable/
  426.     disable state a menu item has the advantage of concentrating all
  427.     the decision-making in one routine, as opposed to being spread throughout
  428.     the application. Other application designs may take a different approach
  429.     that is just as valid.
  430.  
  431. ————————————————————————————————————————————————————————————————————————————————————*/
  432.  
  433. #pragma segment Main
  434. void AdjustMenus()
  435. {
  436.     MenuHandle    menu;
  437.  
  438.     WindowPtr window = FrontWindow();
  439.  
  440.     menu = GetMenuHandle(mFile);
  441.     if ( IsDAWindow(window) )            // we can allow desk accessories to be closed from the menu
  442.         EnableItem(menu, iClose);
  443.     else
  444.         DisableItem(menu, iClose);        // but not our traffic light window
  445.  
  446.     menu = GetMenuHandle(mEdit);
  447.     if ( IsDAWindow(window) ) {            // a desk accessory might need the edit menu…
  448.         EnableItem(menu, iUndo);
  449.         EnableItem(menu, iCut);
  450.         EnableItem(menu, iCopy);
  451.         EnableItem(menu, iClear);
  452.         EnableItem(menu, iPaste);
  453.     } else {                            // …but we don’t use it
  454.         DisableItem(menu, iUndo);
  455.         DisableItem(menu, iCut);
  456.         DisableItem(menu, iCopy);
  457.         DisableItem(menu, iClear);
  458.         DisableItem(menu, iPaste);
  459.     }
  460.  
  461.     gTrafficLight->AdjustMenus( IsAppWindow(window) );
  462.  
  463. } /*AdjustMenus*/
  464.  
  465. /*————————————————————————————————————————————————————————————————————————————————————
  466.     DoMenuCommand
  467.     
  468.     This is called when an item is chosen from the menu bar (after calling
  469.     MenuSelect or MenuKey). It performs the right operation for each command.
  470.     It is good to have both the result of MenuSelect and MenuKey go to
  471.     one routine like this to keep everything organized. It checks to see if the 
  472.     menu hit where the Apple, File, or Edit if so it calls the local DoMenuCommand
  473.     else it must be our traffic light's menu, therefore traffic light menu command 
  474.     is being called.
  475.  
  476. ————————————————————————————————————————————————————————————————————————————————————*/
  477.  
  478. #pragma segment Main
  479. void DoMenuCommand(long menuResult)
  480. {
  481.     short        menuID;                    // the resource ID of the selected menu
  482.     short        menuItem;                // the item number of the selected menu
  483.     short        itemHit;
  484.     Str255        daName;
  485.     short        daRefNum;
  486.     Boolean        handledByDA;
  487.     
  488.     menuID = HighWord(menuResult);        // use macros for efficiency to...
  489.     menuItem = LowWord(menuResult);        // get menu item number and menu number
  490.     switch ( menuID ) {
  491.         case mApple:
  492.             switch ( menuItem ) {
  493.                 case iAbout:            // bring up alert for About
  494.                     itemHit = Alert(rAboutAlert, nil);
  495.                     break;
  496.                 default:                // all non-About items in this menu are DAs
  497.                     // type Str255 is an array in MPW 3 
  498.                     GetMenuItemText(GetMenuHandle(mApple), menuItem, daName);
  499.                     daRefNum = OpenDeskAcc(daName);
  500.                     break;
  501.             }
  502.             break;
  503.         case mFile:
  504.             switch ( menuItem ) {
  505.                 case iClose:
  506.                     DoCloseWindow(FrontWindow());
  507.                     break;
  508.                 case iQuit:
  509.                     Terminate();
  510.                     break;
  511.             }
  512.             break;
  513.         case mEdit:                        // call SystemEdit for DA editing & MultiFinder
  514.             handledByDA = SystemEdit(menuItem-1);    // since we don’t do any Editing 
  515.             break;
  516.         default:                        // this must be our shared library menu item
  517.             gTrafficLight->DoMenuCommand( menuItem );
  518.             break;
  519.     }
  520.     HiliteMenu(0);                        // unhighlight what MenuSelect (or MenuKey) hilited
  521. } /*DoMenuCommand*/
  522.  
  523. /*————————————————————————————————————————————————————————————————————————————————————
  524.     DoCloseWindow
  525.     
  526.     Close a window. This handles desk accessory and application windows. Note the
  527.     traffic library manager allocated the windowrecord for window, so disposing of
  528.     the WindowRecord should be left upon the traffic light library.
  529.     
  530. ————————————————————————————————————————————————————————————————————————————————————*/
  531.  
  532. #pragma segment Main
  533. Boolean DoCloseWindow(WindowPtr window)
  534. {
  535.     if ( IsDAWindow(window) )
  536.         CloseDeskAcc(((WindowPeek) window)->windowKind);
  537.     else if ( IsAppWindow(window) )
  538.         delete gTrafficLight;            // done with trafficlight, deallocate
  539.  
  540.     return true;
  541. } /*DoCloseWindow*/
  542.  
  543. /*————————————————————————————————————————————————————————————————————————————————————
  544.     Terminate
  545.  
  546.     Cleanup the application and exits. Close all of the windows, and cleanup our 
  547.     library. We replace the ExitToShell by UnLoadTrafficLightLibrary so we get a 
  548.     chance to unload the library and cleanup the library manager.
  549.  
  550. ————————————————————————————————————————————————————————————————————————————————————*/
  551.  
  552. #pragma segment Main
  553. void Terminate()
  554. {
  555.     WindowPtr    aWindow;
  556.     Boolean        closed;
  557.     
  558.     closed = true;
  559.     do {
  560.         aWindow = FrontWindow();        //  get the current front window
  561.         if (aWindow != nil)
  562.             closed = DoCloseWindow(aWindow); // close this window
  563.     }
  564.     while (closed && (aWindow != nil));
  565.  
  566.     if (closed) {
  567.         UnLoadTrafficLightLibrary();    // exit if no cancellation
  568.         ExitToShell();
  569.     }
  570. } /*Terminate*/
  571.  
  572.  
  573. /*————————————————————————————————————————————————————————————————————————————————————
  574.     UnLoadTrafficLightLibrary
  575.     
  576.     unload the traffic light object and free the memory allocated by our library
  577.  
  578. ————————————————————————————————————————————————————————————————————————————————————*/
  579.  
  580. void UnLoadTrafficLightLibrary()
  581. {
  582.  
  583.     CleanupLibraryManager();            // clean up the library manager we are done.
  584.     ExitToShell();                        // Hasta la Vista baby!
  585. } /* UnLoadTrafficLightLibrary */
  586.  
  587. /*————————————————————————————————————————————————————————————————————————————————————
  588.     LoadTrafficLightLibrary
  589.     
  590.     load the traffic light library. This library automatically creates a window and
  591.     attach a traffic menu to our current menu.
  592.  
  593. ————————————————————————————————————————————————————————————————————————————————————*/
  594.  
  595. void LoadTrafficLightLibrary()
  596. {
  597.  
  598.     // always initilize the library manager before any Shared Library calls. This
  599.     // creates a local instance of TLibraryManager for accessing our libraries.
  600.     
  601.     if( InitLibraryManager() == kNoError ) {                    
  602.             
  603.         // allocate an instance of our traffic light. Use the default memory pool.
  604.         // Set the exception handling just in case; If failed to allocate our object,
  605.         // exception is thrown via FailNULL, in which case we alert user and cleanup.
  606.         
  607.         TRY
  608.             gTrafficLight = new TTrafficLight; // allocate space from default pool
  609.             FailNULL( gTrafficLight, ErrorCode(), "Failed to create a TTrafficLight object");
  610.         CATCH_ALL
  611.             AlertUser();                // failed to allocate our object
  612.         ENDTRY
  613.     
  614.         if( ! gTrafficLight->IsValid() )// make sure our object is initialized
  615.             AlertUser();
  616.  
  617.     }
  618.     else
  619.         AlertUser();                    // not good. SLM IS NOT INSLALLED.
  620.     
  621. } /* LoadTrafficLightLibrary */
  622.  
  623. /*————————————————————————————————————————————————————————————————————————————————————
  624.     Initialize
  625.     
  626.     Set up the whole world, including global variables, Toolbox managers,
  627.     and menus. Sample is going to create its window, and traffic menu through its
  628.     traffic library, using the shared library manager(Nahhhh...). The Library auto-
  629.     matically create a window, attach a menu and draws the traffic light.
  630.  
  631. ————————————————————————————————————————————————————————————————————————————————————*/
  632.  
  633. #pragma segment Initialize
  634. void Initialize()
  635. {
  636.     Handle        menuBar;
  637.     long        total, contig;
  638.     EventRecord event;
  639.     short        count;
  640.  
  641.     gInBackground = false;
  642.     
  643.     InitGraf((Ptr) &qd.thePort);
  644.     InitFonts();
  645.     InitWindows();
  646.     InitMenus();
  647.     TEInit();
  648.     InitDialogs(nil);
  649.     InitCursor();
  650.     
  651.     // This next bit of code is necessary to allow the default button of our
  652.     // alert be outlined
  653.     
  654.     for (count = 1; count <= 3; count++)
  655.         EventAvail(everyEvent, &event);
  656.          
  657.     // Ignore the error returned from SysEnvirons; even if an error occurred,
  658.     // the SysEnvirons glue will fill in the SysEnvRec. You can save a redundant
  659.     // call to SysEnvirons by calling it after initializing AppleTalk
  660.  
  661.     SysEnvirons(kSysEnvironsVersion, &gMac);
  662.     
  663.     // Make sure that the machine has at least 128K ROMs. If it doesn't, exit. //
  664.     
  665.     if (gMac.machineType < 0) AlertUser();
  666.             
  667.     // Move TrapAvailable call to after SysEnvirons so that we can tell
  668.     // in TrapAvailable if a tool trap value is out of range.
  669.  
  670.     gHasWaitNextEvent = TrapAvailable(_WaitNextEvent, ToolTrap);
  671.           
  672.     // We used to make a check for memory at this point by examining ApplLimit,
  673.     // ApplicationZone, and StackSpace and comparing that to the minimum size we told
  674.     // MultiFinder we needed. This did not work well because it assumed too much about
  675.     // the relationship between what we asked MultiFinder for and what we would actually
  676.     // get back, as well as how to measure it. Instead, we will use an alternate
  677.     // method comprised of two steps.
  678.  
  679.     // It is better to first check the size of the application heap against a value
  680.     // that you have determined is the smallest heap the application can reasonably
  681.     // work in. This number should be derived by examining the size of the heap that
  682.     // is actually provided by MultiFinder when the minimum size requested is used.
  683.     // The derivation of the minimum size requested from MultiFinder is described
  684.     // in Sample.h. The check should be made because the preferred size can end up
  685.     // being set smaller than the minimum size by the user. This extra check acts to
  686.     // insure that your application is starting from a solid memory foundation. 
  687.  
  688.     if ((long) GetApplLimit() - (long) ApplicationZone() < kMinHeap) AlertUser();
  689.         
  690.     // Next, make sure that enough memory is free for your application to run. It
  691.     // is possible for a situation to arise where the heap may have been of required
  692.     // size, but a large scrap was loaded which left too little memory. To check for
  693.     // this, call PurgeSpace and compare the result with a value that you have determined
  694.     // is the minimum amount of free memory your application needs at initialization.
  695.     // This number can be derived several different ways. One way that is fairly
  696.     // straightforward is to run the application in the minimum size configuration
  697.     // as described previously. Call PurgeSpace at initialization and examine the value
  698.     // returned. However, you should make sure that this result is not being modified
  699.     // by the scrap's presence. You can do that by calling ZeroScrap before calling
  700.     // PurgeSpace. Make sure to remove that call before shipping, though.
  701.  
  702.     PurgeSpace(&total, &contig);
  703.     if (total < kMinSpace) AlertUser();
  704.  
  705.     menuBar = GetNewMBar(rMenuBar);            // read menus into menu bar
  706.     if ( menuBar == nil ) AlertUser();
  707.     SetMenuBar(menuBar);                    // install menus
  708.     DisposeHandle(menuBar);
  709.     AppendResMenu(GetMenuHandle(mApple), 'DRVR');    // add DA names to Apple menu
  710.  
  711.     DrawMenuBar();                            // go ahead and update the menu bar
  712.  
  713.     LoadTrafficLightLibrary();                // Load trafficlight shared library 
  714.     
  715. } /*Initialize*/
  716.  
  717. /*————————————————————————————————————————————————————————————————————————————————————
  718.     IsAppWindow
  719.     
  720.     Check to see if a window belongs to the application. If the window pointer
  721.     passed was NIL, then it could not be an application window. WindowKinds
  722.     that are negative belong to the system and windowKinds less than userKind
  723.     are reserved by Apple except for windowKinds equal to dialogKind, which
  724.     mean it is a dialog.
  725.  
  726. ————————————————————————————————————————————————————————————————————————————————————*/
  727.  
  728. #pragma segment Main
  729. Boolean IsAppWindow( WindowPtr window)
  730. {
  731.     short        windowKind;
  732.  
  733.     if ( window == nil )
  734.         return false;
  735.     else {    // application windows have windowKinds = userKind (8) 
  736.         windowKind = ((WindowPeek) window)->windowKind;
  737.         return ( windowKind == userKind );
  738.     }
  739. } /*IsAppWindow*/
  740.  
  741. /*————————————————————————————————————————————————————————————————————————————————————
  742.     IsDAWindow
  743.  
  744.     Check to see if a window belongs to a desk accessory
  745.  
  746. ————————————————————————————————————————————————————————————————————————————————————*/
  747.  
  748. #pragma segment Main
  749. Boolean IsDAWindow(WindowPtr window)
  750. {
  751.     if ( window == nil )
  752.         return false;
  753.     else    // DA windows have negative windowKinds 
  754.         return ( ((WindowPeek) window)->windowKind < 0 );
  755. } /*IsDAWindow*/
  756.  
  757.  
  758. /*————————————————————————————————————————————————————————————————————————————————————
  759.     TrapAvailable
  760.  
  761.     Check to see if a given trap is implemented. This is only used by the
  762.     Initialize routine in this program, so we put it in the Initialize segment.
  763.     The recommended approach to see if a trap is implemented is to see if
  764.     the address of the trap routine is the same as the address of the
  765.     Unimplemented trap.
  766.  
  767. ————————————————————————————————————————————————————————————————————————————————————*/
  768.  
  769. #pragma segment Initialize
  770. Boolean TrapAvailable( short tNumber, TrapType tType)
  771. {
  772.     if ( ( tType == ToolTrap ) &&
  773.         ( gMac.machineType > envMachUnknown ) &&
  774.         ( gMac.machineType < envMacII ) ) {        // it's a 512KE, Plus, or SE 
  775.         tNumber = tNumber & 0x03FF;
  776.         if ( tNumber > 0x01FF )                    // which means the tool traps 
  777.             tNumber = _Unimplemented;            // only go to 0x01FF 
  778.     }
  779.     return NGetTrapAddress(tNumber, tType) != NGetTrapAddress(_Unimplemented, tType);
  780. } /*TrapAvailable*/
  781.  
  782. /*————————————————————————————————————————————————————————————————————————————————————
  783.     AlertUser
  784.     
  785.     Display an alert that tells the user an error occurred, then exit the program.
  786.     This routine is used as an ultimate bail-out for serious errors that prohibit
  787.     the continuation of the application. Errors that do not require the termination
  788.     of the application should be handled in a different manner. Error checking and
  789.     reporting has a place even in the simplest application. The error number is used
  790.     to index an 'STR#' resource so that a relevant message can be displayed.
  791.  
  792. ————————————————————————————————————————————————————————————————————————————————————*/
  793.  
  794. #pragma segment Main
  795. void AlertUser()
  796. {
  797.     short        itemHit;
  798.  
  799.     SetCursor(&qd.arrow);
  800.     itemHit = Alert(rUserAlert, nil);
  801.     UnLoadTrafficLightLibrary();
  802.     ExitToShell();
  803. } /* AlertUser */